home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / text / edit / Textra16.lha / Textra116 / Scripts / JForth_Scripts / tojf.textra < prev    next >
Encoding:
Text File  |  1991-07-31  |  228 b   |  11 lines
  1. /* send a string to the JForth interpreter... */
  2.  
  3. OPTIONS results
  4.  
  5. parse arg theString   /* get the argument */
  6. if (theString == "") then
  7.     theString = '" JForth Professional just says HI!" $type cr'
  8.  
  9. address 'JFORTH' theString
  10.  
  11.